home *** CD-ROM | disk | FTP | other *** search
- //----------------------------------------------------------------------------
- // Messages.hpp - bcbdcc32 generated hdr (DO NOT EDIT) rev: 0
- // From: Messages.pas
- //----------------------------------------------------------------------------
- #ifndef MessagesHPP
- #define MessagesHPP
- //----------------------------------------------------------------------------
- #include <Windows.hpp>
- #include <System.hpp>
- #pragma warn -par
- #pragma warn -hid
- #pragma warn -inl
-
- namespace Messages
- {
- //-- type declarations -------------------------------------------------------
- struct TMessage;
- typedef TMessage *PMessage;
-
- struct TMessage
- {
- Cardinal Msg;
- union
- {
- struct
- {
- Word WParamLo;
- Word WParamHi;
- Word LParamLo;
- Word LParamHi;
- Word ResultLo;
- Word ResultHi;
-
- };
- struct
- {
- long WParam;
- long LParam;
- long Result;
-
- };
-
- };
- } ;
-
- struct TWMNoParams
- {
- Cardinal Msg;
- Word Unused[4];
- long Result;
- } ;
-
- struct TWMKey
- {
- Cardinal Msg;
- Word CharCode;
- Word Unused;
- long KeyData;
- long Result;
- } ;
-
- struct TWMMouse
- {
- Cardinal Msg;
- long Keys;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- long Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
-
- struct TWMWindowPosMsg
- {
- Cardinal Msg;
- int Unused;
- WINDOWPOS *WindowPos;
- long Result;
- } ;
-
- struct TWMScroll
- {
- Cardinal Msg;
- short ScrollCode;
- short Pos;
- HWND ScrollBar;
- long Result;
- } ;
-
- struct TWMActivate
- {
- Cardinal Msg;
- Word Active;
- Word Minimized;
- HWND ActiveWindow;
- long Result;
- } ;
-
- struct TWMActivateApp
- {
- Cardinal Msg;
- DWord Active;
- long ThreadId;
- long Result;
- } ;
-
- struct TWMAskCBFormatName
- {
- Cardinal Msg;
- Word NameLen;
- Word Unused;
- char *FormatName;
- long Result;
- } ;
-
- typedef TWMNoParams TWMCancelMode;
-
- struct TWMChangeCBChain
- {
- Cardinal Msg;
- HWND Remove;
- HWND Next;
- long Result;
- } ;
-
- typedef TWMKey TWMChar;
-
- struct TWMCharToItem
- {
- Cardinal Msg;
- Word Key;
- Word CaretPos;
- HWND ListBox;
- long Result;
- } ;
-
- typedef TWMNoParams TWMChildActivate;
-
- struct TWMChooseFont_GetLogFont
- {
- Cardinal Msg;
- long Unused;
- LOGFONTA *LogFont;
- long Result;
- } ;
-
- typedef TWMNoParams TWMClear;
-
- typedef TWMNoParams TWMClose;
-
- struct TWMCommand
- {
- Cardinal Msg;
- Word ItemID;
- Word NotifyCode;
- HWND Ctl;
- long Result;
- } ;
-
- struct TWMCompacting
- {
- Cardinal Msg;
- long CompactRatio;
- long Unused;
- long Result;
- } ;
-
- struct TWMCompareItem
- {
- Cardinal Msg;
- HWND Ctl;
- COMPAREITEMSTRUCT *CompareItemStruct;
- long Result;
- } ;
-
- typedef TWMNoParams TWMCopy;
-
- struct TWMCopyData
- {
- Cardinal Msg;
- HWND From;
- COPYDATASTRUCT *CopyDataStruct;
- long Result;
- } ;
-
- struct TWMCreate
- {
- Cardinal Msg;
- int Unused;
- CREATESTRUCTA *CreateStruct;
- long Result;
- } ;
-
- struct TWMCtlColor
- {
- Cardinal Msg;
- HDC ChildDC;
- HWND ChildWnd;
- long Result;
- } ;
-
- typedef TWMCtlColor TWMCtlColorBtn;
-
- typedef TWMCtlColor TWMCtlColorDlg;
-
- typedef TWMCtlColor TWMCtlColorEdit;
-
- typedef TWMCtlColor TWMCtlColorListbox;
-
- typedef TWMCtlColor TWMCtlColorMsgbox;
-
- typedef TWMCtlColor TWMCtlColorScrollbar;
-
- typedef TWMCtlColor TWMCtlColorStatic;
-
- typedef TWMNoParams TWMCut;
-
- struct TWMDDE_Ack
- {
- Cardinal Msg;
- HWND PostingApp;
- union
- {
- long PackedVal;
- struct
- {
- Word App;
- Word Topic;
- long Result;
-
- };
-
- };
- } ;
-
- struct TWMDDE_Advise
- {
- Cardinal Msg;
- HWND PostingApp;
- long PackedVal;
- long Result;
- } ;
-
- struct TWMDDE_Data
- {
- Cardinal Msg;
- HWND PostingApp;
- long PackedVal;
- long Result;
- } ;
-
- struct TWMDDE_Execute
- {
- Cardinal Msg;
- HWND PostingApp;
- int Commands;
- long Result;
- } ;
-
- struct TWMDDE_Initiate
- {
- Cardinal Msg;
- HWND PostingApp;
- Word App;
- Word Topic;
- long Result;
- } ;
-
- struct TWMDDE_Poke
- {
- Cardinal Msg;
- HWND PostingApp;
- long PackedVal;
- long Result;
- } ;
-
- struct TWMDDE_Request
- {
- Cardinal Msg;
- HWND PostingApp;
- Word Format;
- Word Item;
- long Result;
- } ;
-
- struct TWMDDE_Terminate
- {
- Cardinal Msg;
- HWND PostingApp;
- long Unused;
- long Result;
- } ;
-
- struct TWMDDE_Unadvise
- {
- Cardinal Msg;
- HWND PostingApp;
- Word Format;
- Word Item;
- long Result;
- } ;
-
- typedef TWMKey TWMDeadChar;
-
- struct TWMDeleteItem
- {
- Cardinal Msg;
- HWND Ctl;
- DELETEITEMSTRUCT *DeleteItemStruct;
- long Result;
- } ;
-
- typedef TWMNoParams TWMDestroy;
-
- typedef TWMNoParams TWMDestroyClipboard;
-
- struct TWMDevModeChange
- {
- Cardinal Msg;
- int Unused;
- char *Device;
- long Result;
- } ;
-
- typedef TWMNoParams TWMDrawClipboard;
-
- struct TWMDrawItem
- {
- Cardinal Msg;
- HWND Ctl;
- DRAWITEMSTRUCT *DrawItemStruct;
- long Result;
- } ;
-
- struct TWMDropFiles
- {
- Cardinal Msg;
- int Drop;
- long Unused;
- long Result;
- } ;
-
- struct TWMEnable
- {
- Cardinal Msg;
- DWord Enabled;
- long Unused;
- long Result;
- } ;
-
- struct TWMEndSession
- {
- Cardinal Msg;
- DWord EndSession;
- long Unused;
- long Result;
- } ;
-
- struct TWMEnterIdle
- {
- Cardinal Msg;
- long Source;
- HWND IdleWnd;
- long Result;
- } ;
-
- struct TWMEnterMenuLoop
- {
- Cardinal Msg;
- DWord IsTrackPopupMenu;
- long Unused;
- long Result;
- } ;
-
- typedef TWMEnterMenuLoop TWMExitMenuLoop;
-
- struct TWMEraseBkgnd
- {
- Cardinal Msg;
- HDC DC;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMFontChange;
-
- typedef TWMNoParams TWMGetDlgCode;
-
- typedef TWMNoParams TWMGetFont;
-
- struct TWMGetIcon
- {
- Cardinal Msg;
- DWord BigIcon;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMGetHotKey;
-
- struct TWMGetMinMaxInfo
- {
- Cardinal Msg;
- int Unused;
- MINMAXINFO *MinMaxInfo;
- long Result;
- } ;
-
- struct TWMGetText
- {
- Cardinal Msg;
- int TextMax;
- char *Text;
- long Result;
- } ;
-
- typedef TWMNoParams TWMGetTextLength;
-
- struct TWMHotKey
- {
- Cardinal Msg;
- long HotKey;
- long Unused;
- long Result;
- } ;
-
- typedef TWMScroll TWMHScroll;
-
- struct TWMHScrollClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- Word ScrollCode;
- Word Pos;
- long Result;
- } ;
-
- typedef TWMEraseBkgnd TWMIconEraseBkgnd;
-
- struct TWMInitDialog
- {
- Cardinal Msg;
- HWND Focus;
- long InitParam;
- long Result;
- } ;
-
- struct TWMInitMenu
- {
- Cardinal Msg;
- HMENU Menu;
- long Unused;
- long Result;
- } ;
-
- struct TWMInitMenuPopup
- {
- Cardinal Msg;
- HMENU MenuPopup;
- short Pos;
- Word SystemMenu;
- long Result;
- } ;
-
- typedef TWMKey TWMKeyDown;
-
- typedef TWMKey TWMKeyUp;
-
- struct TWMKillFocus
- {
- Cardinal Msg;
- HWND FocusedWnd;
- long Unused;
- long Result;
- } ;
-
- typedef TWMMouse TWMLButtonDblClk;
-
- typedef TWMMouse TWMLButtonDown;
-
- typedef TWMMouse TWMLButtonUp;
-
- typedef TWMMouse TWMMButtonDblClk;
-
- typedef TWMMouse TWMMButtonDown;
-
- typedef TWMMouse TWMMButtonUp;
-
- struct TWMMDIActivate
- {
- Cardinal Msg;
- union
- {
- struct
- {
- HWND DeactiveWnd;
- HWND ActiveWnd;
- long Result;
-
- };
- HWND ChildWnd;
-
- };
- } ;
-
- struct TWMMDICascade
- {
- Cardinal Msg;
- long Cascade;
- long Unused;
- long Result;
- } ;
-
- struct TWMMDICreate
- {
- Cardinal Msg;
- int Unused;
- MDICREATESTRUCTA *MDICreateStruct;
- long Result;
- } ;
-
- struct TWMMDIDestroy
- {
- Cardinal Msg;
- HWND Child;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMMDIGetActive;
-
- typedef TWMNoParams TWMMDIIconArrange;
-
- struct TWMMDIMaximize
- {
- Cardinal Msg;
- HWND Maximize;
- long Unused;
- long Result;
- } ;
-
- struct TWMMDINext
- {
- Cardinal Msg;
- HWND Child;
- long Next;
- long Result;
- } ;
-
- typedef TWMNoParams TWMMDIRefreshMenu;
-
- struct TWMMDIRestore
- {
- Cardinal Msg;
- HWND IDChild;
- long Unused;
- long Result;
- } ;
-
- struct TWMMDISetMenu
- {
- Cardinal Msg;
- HMENU MenuFrame;
- HMENU MenuWindow;
- long Result;
- } ;
-
- struct TWMMDITile
- {
- Cardinal Msg;
- long Tile;
- long Unused;
- long Result;
- } ;
-
- struct TWMMeasureItem
- {
- Cardinal Msg;
- HWND IDCtl;
- MEASUREITEMSTRUCT *MeasureItemStruct;
- long Result;
- } ;
-
- struct TWMMenuChar
- {
- Cardinal Msg;
- char User;
- Byte Unused;
- Word MenuFlag;
- HMENU Menu;
- long Result;
- } ;
-
- struct TWMMenuSelect
- {
- Cardinal Msg;
- Word IDItem;
- Word MenuFlag;
- HMENU Menu;
- long Result;
- } ;
-
- struct TWMMouseActivate
- {
- Cardinal Msg;
- HWND TopLevel;
- Word HitTestCode;
- Word MouseMsg;
- long Result;
- } ;
-
- typedef TWMMouse TWMMouseMove;
-
- struct TWMMove
- {
- Cardinal Msg;
- int Unused;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- long Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
-
- struct TWMNCActivate
- {
- Cardinal Msg;
- DWord Active;
- long Unused;
- long Result;
- } ;
-
- struct TWMNCCalcSize
- {
- Cardinal Msg;
- DWord CalcValidRects;
- NCCALCSIZE_PARAMS *CalcSize_Params;
- long Result;
- } ;
-
- struct TWMNCCreate
- {
- Cardinal Msg;
- int Unused;
- CREATESTRUCTA *CreateStruct;
- long Result;
- } ;
-
- typedef TWMNoParams TWMNCDestroy;
-
- struct TWMNCHitTest
- {
- Cardinal Msg;
- long Unused;
- union
- {
- struct
- {
- Windows::TSmallPoint Pos;
- long Result;
-
- };
- struct
- {
- short XPos;
- short YPos;
-
- };
-
- };
- } ;
-
- struct TWMNCHitMessage
- {
- Cardinal Msg;
- long HitTest;
- short XCursor;
- short YCursor;
- long Result;
- } ;
-
- typedef TWMNCHitMessage TWMNCLButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCLButtonDown;
-
- typedef TWMNCHitMessage TWMNCLButtonUp;
-
- typedef TWMNCHitMessage TWMNCMButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCMButtonDown;
-
- typedef TWMNCHitMessage TWMNCMButtonUp;
-
- typedef TWMNCHitMessage TWMNCMouseMove;
-
- struct TWMNCPaint
- {
- Cardinal Msg;
- HRGN Rgn;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNCHitMessage TWMNCRButtonDblClk;
-
- typedef TWMNCHitMessage TWMNCRButtonDown;
-
- typedef TWMNCHitMessage TWMNCRButtonUp;
-
- struct TWMNextDlgCtl
- {
- Cardinal Msg;
- long CtlFocus;
- Word Handle;
- Word Unused;
- long Result;
- } ;
-
- struct TWMNotify
- {
- Cardinal Msg;
- long IDCtrl;
- NMHDR *NMHdr;
- long Result;
- } ;
-
- struct TWMPaint
- {
- Cardinal Msg;
- HDC DC;
- long Unused;
- long Result;
- } ;
-
- struct TWMPaintClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- int PaintStruct;
- long Result;
- } ;
-
- typedef TWMNoParams TWMPaintIcon;
-
- struct TWMPaletteChanged
- {
- Cardinal Msg;
- HWND PalChg;
- long Unused;
- long Result;
- } ;
-
- struct TWMPaletteIsChanging
- {
- Cardinal Msg;
- HWND Realize;
- long Unused;
- long Result;
- } ;
-
- struct TWMParentNotify
- {
- Cardinal Msg;
- Word Event;
- union
- {
- struct
- {
- Word Value1;
- long Value2;
- long Result;
-
- };
- struct
- {
- Word Value;
- short XPos;
- short YPos;
-
- };
- struct
- {
- Word ChildID;
- HWND ChildWnd;
-
- };
-
- };
- } ;
-
- typedef TWMNoParams TWMPaste;
-
- struct TWMPower
- {
- Cardinal Msg;
- long PowerEvt;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMQueryDragIcon;
-
- struct TWMQueryEndSession
- {
- Cardinal Msg;
- long Source;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMQueryNewPalette;
-
- typedef TWMNoParams TWMQueryOpen;
-
- typedef TWMNoParams TWMQueueSync;
-
- struct TWMQuit
- {
- Cardinal Msg;
- long ExitCode;
- long Unused;
- long Result;
- } ;
-
- typedef TWMMouse TWMRButtonDblClk;
-
- typedef TWMMouse TWMRButtonDown;
-
- typedef TWMMouse TWMRButtonUp;
-
- typedef TWMNoParams TWMRenderAllFormats;
-
- struct TWMRenderFormat
- {
- Cardinal Msg;
- long Format;
- long Unused;
- long Result;
- } ;
-
- struct TWMSetCursor
- {
- Cardinal Msg;
- HWND CursorWnd;
- Word HitTest;
- Word MouseMsg;
- long Result;
- } ;
-
- struct TWMSetFocus
- {
- Cardinal Msg;
- HWND FocusedWnd;
- long Unused;
- long Result;
- } ;
-
- struct TWMSetFont
- {
- Cardinal Msg;
- HFONT Font;
- Word Redraw;
- Word Unused;
- long Result;
- } ;
-
- struct TWMSetHotKey
- {
- Cardinal Msg;
- long Key;
- long Unused;
- long Result;
- } ;
-
- struct TWMSetIcon
- {
- Cardinal Msg;
- DWord BigIcon;
- HICON Icon;
- long Result;
- } ;
-
- struct TWMSetRedraw
- {
- Cardinal Msg;
- long Redraw;
- long Unused;
- long Result;
- } ;
-
- struct TWMSetText
- {
- Cardinal Msg;
- long Unused;
- char *Text;
- long Result;
- } ;
-
- struct TWMShowWindow
- {
- Cardinal Msg;
- DWord Show;
- long Status;
- long Result;
- } ;
-
- struct TWMSize
- {
- Cardinal Msg;
- long SizeType;
- Word Width;
- Word Height;
- long Result;
- } ;
-
- struct TWMSizeClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- int RC;
- long Result;
- } ;
-
- struct TWMSpoolerStatus
- {
- Cardinal Msg;
- long JobStatus;
- Word JobsLeft;
- Word Unused;
- long Result;
- } ;
-
- struct TWMStyleChange
- {
- Cardinal Msg;
- long StyleType;
- STYLESTRUCT *StyleStruct;
- long Result;
- } ;
-
- typedef TWMStyleChange TWMStyleChanged;
-
- typedef TWMStyleChange TWMStyleChanging;
-
- typedef TWMKey TWMSysChar;
-
- typedef TWMNoParams TWMSysColorChange;
-
- struct TWMSysCommand
- {
- Cardinal Msg;
- long CmdType;
- union
- {
- struct
- {
- short XPos;
- short YPos;
- long Result;
-
- };
- Word Key;
- HWND ActivateWnd;
-
- };
- } ;
-
- struct TWMSysDeadChar
- {
- Cardinal Msg;
- Word CharCode;
- Word Unused;
- long KeyData;
- long Result;
- } ;
-
- typedef TWMKey TWMSysKeyDown;
-
- typedef TWMKey TWMSysKeyUp;
-
- struct TWMSystemError
- {
- Cardinal Msg;
- Word ErrSpec;
- long Unused;
- long Result;
- } ;
-
- typedef TWMNoParams TWMTimeChange;
-
- struct TWMTimer
- {
- Cardinal Msg;
- long TimerID;
- void *TimerProc;
- long Result;
- } ;
-
- typedef TWMNoParams TWMUndo;
-
- typedef TWMCharToItem TWMVKeyToItem;
-
- typedef TWMScroll TWMVScroll;
-
- struct TWMVScrollClipboard
- {
- Cardinal Msg;
- HWND Viewer;
- Word ScollCode;
- Word ThumbPos;
- long Result;
- } ;
-
- typedef TWMWindowPosMsg TWMWindowPosChanged;
-
- typedef TWMWindowPosMsg TWMWindowPosChanging;
-
- struct TWMWinIniChange
- {
- Cardinal Msg;
- int Unused;
- char *Section;
- long Result;
- } ;
-
- struct TWMHelp
- {
- Cardinal Msg;
- int Unused;
- HELPINFO *HelpInfo;
- long Result;
- } ;
-
- //-- var, const, procedure ---------------------------------------------------
-
- } /* namespace Messages */
-
- #pragma warn .par
- #pragma warn .hid
- #pragma warn .inl
-
- #if !defined(NO_IMPLICIT_NAMESPACE_USE)
- using namespace Messages;
- #endif
- //-- end unit ----------------------------------------------------------------
- #endif // Messages
-